home *** CD-ROM | disk | FTP | other *** search
/ Chip 2006 December / chip-cd_2006_12.zip / 12 / Pakiet internetowy / Stacje TV i radiowe (odsluchiwanie i rippowanie) / Streamripper winamp5 1.61.27 / srwa5-1.61.27.exe / $1 / fake_external_metadata.pl next >
Perl Script  |  2005-11-11  |  1KB  |  35 lines
  1. #! /usr/bin/perl
  2. ###########################################################################
  3. # This is an external script that I use for testing streamripper's 
  4. # external program interface.  It implements the following:
  5. #
  6. #   1) Generates (random) title and artist information
  7. #   2) Sends the information to streamripper
  8. # 
  9. # To invoke the script, do this:
  10. #    streamripper URL -E "perl fake_external_metadata.pl"
  11. #
  12. # This script is in the public domain. You are free to use, modify and 
  13. # redistribute without restrictions.
  14. ###########################################################################
  15.  
  16. $repno = 4;
  17.  
  18. $ts = "AAA";
  19. $as = "001";
  20. $title = "TITLE=$ts\n";
  21. $artist = "ARTIST=$as\n";
  22. while (1) {
  23.     if ($repno-- < 0) {
  24.     $repno = 4;
  25.     $as++;
  26.     $ts++;
  27.     $title = "TITLE=$ts\n";
  28.     $artist = "ARTIST=$as\n";
  29.     }
  30.     $end_of_record = ".\n";
  31.     $meta_data = $title . $artist . $end_of_record;
  32.     syswrite (STDOUT, $meta_data, length($meta_data));
  33.     sleep (10);
  34. }
  35.